home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 August / Ahoy_Magazine_87-08_1987_Double_L_Side_A.d64 / Branch Calc (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  320b  |  11 lines
  1. 100 rem* branch calc ---- shawn k. smith
  2. 105 printchr$(142)
  3. 110 rem  "calculated gotos and gosubs"
  4. 120 b=40960:k=57344:ford=0to8191:pokeb+d,peek(b+d):pokek+d,peek(k+d):next
  5. 130 poke1,53:poke64982,53
  6. 140 s=48981:ford=stos+6:ready:poked,y
  7. 150 next:h=int(s/256):poke43170,h
  8. 160 poke43169,s-h*256:d=21:loop=180
  9. 170 data 032,138,173,076,247,183,234
  10. 180 d=d-1:print"ok!":ifdthen  goto loop
  11.